home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_s6240.txt < prev    next >
Text File  |  1994-03-01  |  663b  |  19 lines
  1. 5 ONERRORGOTO500
  2. 10 ANGLE1:IFx=<0 THENp=1:GOTO80
  3. 20 IFm MOD 2=0 THENz=m/(m+n*x):GOSUB100:p=1-p:GOTO80
  4. 30 IFn MOD 2=0 THENz=n*x/(m+n*x):i=m:m=n:n=i:GOSUB100:i=m:m=n:n=i:GOTO80
  5. 40 y=ATNSQR(n*x/m)
  6. 50 GOSUB200:p=p+a:IFp<0 THENp=0
  7. 80 y=p:RETURN
  8. 100 a=1:FORi=m-2 TO2 STEP-2:a=1+(n+i-2)/i*z*a:NEXT
  9. 110 p=(1-z)^(n/2)*a:RETURN
  10. 200 z=(SINy)^2:IFn=1 THENa=0 ELSEa=1
  11. 210 FORi=n-2 TO3 STEP-2:a=1+(m+i-2)/i*z*a:NEXT
  12. 220 b=PI:FORi=2 TOm-1 STEP2:b=b*(i-1)/i:NEXT
  13. 230 p=2/b*SINy*(COSy)^m*a
  14. 250 z=(COSy)^2:IFm=1 THENa=0 ELSEa=1
  15. 260 FORi=m-2 TO3 STEP-2:a=1+(i-1)/i*z*a:NEXT
  16. 270 a=1-2*y/PI-2/PI*SINy*COSy*a:RETURN
  17. 500 IFERR=1 THENCLS:ONERRORGOTO0
  18. 510 sr=1:RESUME80
  19.